home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rpgedi1a / frmoptio.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-18  |  8KB  |  239 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   2790
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   5520
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2790
  14.    ScaleWidth      =   5520
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Label lblReturn 
  18.       AutoSize        =   -1  'True
  19.       BackColor       =   &H00000000&
  20.       BackStyle       =   0  'Transparent
  21.       Caption         =   "Return"
  22.       BeginProperty Font 
  23.          Name            =   "Home"
  24.          Size            =   26.25
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       ForeColor       =   &H00FFFFFF&
  32.       Height          =   525
  33.       Left            =   3720
  34.       TabIndex        =   4
  35.       Top             =   2085
  36.       Width           =   1635
  37.    End
  38.    Begin VB.Label lblDecreaseGame 
  39.       AutoSize        =   -1  'True
  40.       BackColor       =   &H00000000&
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "Decrease"
  43.       BeginProperty Font 
  44.          Name            =   "Home"
  45.          Size            =   14.25
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H00FFFFFF&
  53.       Height          =   285
  54.       Left            =   1440
  55.       TabIndex        =   3
  56.       Top             =   1440
  57.       Width           =   1140
  58.    End
  59.    Begin VB.Label lblIncreaseGame 
  60.       AutoSize        =   -1  'True
  61.       BackColor       =   &H00000000&
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "Increase"
  64.       BeginProperty Font 
  65.          Name            =   "Home"
  66.          Size            =   14.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       ForeColor       =   &H00FFFFFF&
  74.       Height          =   285
  75.       Left            =   4080
  76.       TabIndex        =   2
  77.       Top             =   1440
  78.       Width           =   1065
  79.    End
  80.    Begin VB.Label lblNew 
  81.       AutoSize        =   -1  'True
  82.       BackColor       =   &H00000000&
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "Options"
  85.       BeginProperty Font 
  86.          Name            =   "Home"
  87.          Size            =   26.25
  88.          Charset         =   0
  89.          Weight          =   400
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       ForeColor       =   &H00FFFFFF&
  95.       Height          =   525
  96.       Left            =   240
  97.       TabIndex        =   1
  98.       Top             =   240
  99.       Width           =   1830
  100.    End
  101.    Begin VB.Label lblStatic 
  102.       BackColor       =   &H00000000&
  103.       Caption         =   "Game Speed:"
  104.       BeginProperty Font 
  105.          Name            =   "MS Sans Serif"
  106.          Size            =   13.5
  107.          Charset         =   0
  108.          Weight          =   400
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       ForeColor       =   &H00FFFFFF&
  114.       Height          =   375
  115.       Index           =   0
  116.       Left            =   480
  117.       TabIndex        =   0
  118.       Top             =   960
  119.       Width           =   1815
  120.    End
  121.    Begin VB.Shape shpBarG 
  122.       BorderColor     =   &H00FF0000&
  123.       Height          =   375
  124.       Left            =   2400
  125.       Top             =   960
  126.       Width           =   1815
  127.    End
  128.    Begin VB.Shape shpSlideG 
  129.       BackColor       =   &H00FF0000&
  130.       BackStyle       =   1  'Opaque
  131.       BorderColor     =   &H00FF0000&
  132.       Height          =   375
  133.       Left            =   4080
  134.       Top             =   960
  135.       Width           =   135
  136.    End
  137. Attribute VB_Name = "frmOptions"
  138. Attribute VB_GlobalNameSpace = False
  139. Attribute VB_Creatable = False
  140. Attribute VB_PredeclaredId = True
  141. Attribute VB_Exposed = False
  142. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  143. 'make all the labels white
  144. lblIncreaseWalk.ForeColor = QBColor(15)
  145. lblIncreaseGame.ForeColor = QBColor(15)
  146. lblDecreaseWalk.ForeColor = QBColor(15)
  147. lblDecreaseGame.ForeColor = QBColor(15)
  148. lblReturn.ForeColor = QBColor(15)
  149. End Sub
  150. 'decrease game speed
  151. Private Sub lblDecreaseGame_Click()
  152.     'play the button sound
  153.     Call sndPlaySound(sndButton, &H1)
  154.     'move the sliding bar to the right
  155.     shpSlideG.Left = shpSlideG.Left - 30
  156.     'see if the slider is at min
  157.     If shpSlideG.Left > shpBarG.Left Then
  158.         'if not, make the wait time larger (longer wait = decreased game speed)
  159.         wait = wait + 0.005
  160.     Else
  161.         'if it is, make the slider equal to the max value, in case it went over
  162.         shpSlideG.Left = shpBarG.Left
  163.     End If
  164.     shpBarG.Refresh
  165. End Sub
  166. Private Sub lblDecreaseGame_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  167.     lblDecreaseGame.ForeColor = QBColor(12)
  168. End Sub
  169. 'decrease the walking speed
  170. Private Sub lblDecreaseWalk_Click()
  171.     'play the button sound
  172.     Call sndPlaySound(sndButton, &H1)
  173.     'move the sliding bar to the right
  174.     shpSlideW.Left = shpSlideW.Left - 60
  175.     'see if the slider is at min
  176.     If shpSlideW.Left > shpBarW.Left Then
  177.         'if not, make the wait time larger (longer wait = decreased game speed)
  178.         Speed = Speed - 1
  179.     Else
  180.         'if it is, make the slider equal to the max value, in case it went over
  181.         shpSlideW.Left = shpBarW.Left
  182.     End If
  183.     shpBarW.Refresh
  184. End Sub
  185. Private Sub lblDecreaseWalk_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  186.     lblDecreaseWalk.ForeColor = QBColor(12)
  187. End Sub
  188. 'increase game speed
  189. Private Sub lblIncreaseGame_Click()
  190.     'play the button sound
  191.     Call sndPlaySound(sndButton, &H1)
  192.     'move the sliding bar to the right
  193.     shpSlideG.Left = shpSlideG.Left + 30
  194.     'see if the slider is at max
  195.     If shpSlideG.Left + shpSlideG.Width <= shpBarG.Left + shpBarG.Width Then
  196.         'if not, make the waiting time smaller (shorter wait, increased game speed)
  197.         wait = wait - 0.005
  198.         If wait < 0 Then wait = 0
  199.     Else
  200.         'if it is, make the slider equal to the max value, in case it went over
  201.         shpSlideG.Left = shpBarG.Left + shpBarG.Width - shpSlideG.Width
  202.         wait = 0
  203.     End If
  204.     shpBarG.Refresh
  205. End Sub
  206. Private Sub lblIncreaseGame_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  207.     lblIncreaseGame.ForeColor = QBColor(12)
  208. End Sub
  209. 'increase walking speed
  210. Private Sub lblIncreaseWalk_Click()
  211.     'play the button sound
  212.     Call sndPlaySound(sndButton, &H1)
  213.     'move the sliding bar to the right
  214.     shpSlideW.Left = shpSlideW.Left + 60
  215.     'see if the slider is at max
  216.     If shpSlideW.Left + shpSlideW.Width < shpBarW.Left + shpBarW.Width Then
  217.         'if not, increase the speed
  218.         Speed = Speed + 1
  219.     Else
  220.         'if it is, make the slider equal to the max value, in case it went over
  221.         shpSlideW.Left = shpBarW.Left + shpBarW.Width - shpSlideW.Width
  222.     End If
  223.     shpBarW.Refresh
  224. End Sub
  225. Private Sub lblIncreaseWalk_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  226.     lblIncreaseWalk.ForeColor = QBColor(12)
  227. End Sub
  228. Private Sub lblReturn_Click()
  229.     'play the button sound
  230.     Call sndPlaySound(sndButton, &H1)
  231.     'show the main window, and hide the options window
  232.     frmOptions.Visible = False
  233.     frmStartup.Enabled = True
  234.     frmStartup.SetFocus
  235. End Sub
  236. Private Sub lblReturn_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  237.     lblReturn.ForeColor = QBColor(12)
  238. End Sub
  239.